/* Planet Drop */
/* Made by Dell Bond */
/* Version 1.0 */

call zoctimeout 140


do forever
result =zocwaitmux("ACTIVITY WARNI", "Deployed Fighters")
select
	when result=0 then call zocsend "#"
	when result=1 then do
	call zocwait "Report Sector "
	sector=GetSector(0,0)
	call zocsend "cp"
	call zocsend sector
	call zocsend "^my"
	call zocwait "anetary TransWarp Drive"
	call zocsend "q"
	exit
	end
end /* select */


end
exit


GetSector:
holdfinal=""
call zocwait ":"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal